home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win98 Start Menu 1.xpl < prev    next >
Text File  |  2002-01-01  |  3KB  |  102 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="9"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Start menu\Windows 98"
  5. "NAME"="Visible Items"
  6. "VERSION"="2.03"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="001"
  9. "TEXT 1"="Aha! You can't see this!"
  10. "DESCRIPTION 1"="Use this plug-in to show or hide some of the items in the Start menu."
  11. "DESCRIPTION 2"="NOTE #1: It can happen that if you disable the "Run..." command, you can no longer use the address bar of Internet Explorer. This seems to be a bug inside IE."
  12. "DESCRIPTION 3"="NOTE #2: Disabling "Find..." may also disable the context menu (Right-click) of the START button."
  13. "DESCRIPTION 4"="NOTE #3: Show "Log Off <username>" might not work if IE 5 is installed. Also, disabling this option will disable the SHUTDOWN button in the CTRL+ALT+DEL menu.
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "CONTACTURL"="http://www.xteq.com/"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"="Thanks to Joe [gojoecollier@naxs.net] for the "Run might kill IE" bug notice!"
  18. "COMMENT 2"="Thanks to Bill Hudacek [hudacek@us.ibm.com] for spotting the NoFind = NoRightMouse bug."
  19. "COMMENT 3"="Thanks to CptSiskoX for the "Show Log Off" Win98 note."
  20.  
  21. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  22. sV1=sP & "NoFavoritesMenu"
  23. sV2=sP & "NoRecentDocsMenu"
  24. sV3=sP & "NoRun"
  25. sV4=sP & "NoClose"
  26. sV5=sP & "NoFind"
  27. sV6=sP & "NoLogOff" 'Binary in W9x!
  28.  
  29.  
  30. SUB Plugin_Initialize
  31.  Call SetUIElement(1,"Favorites")
  32.  Call ReadIt(1,sV1)
  33.  
  34.  Call SetUIElement(2,"Documents")
  35.  Call ReadIt(2,sV2)
  36.  
  37.  Call SetUIElement(3,"Run...")
  38.  Call ReadIt(3,sV3)
  39.  
  40.  Call SetUIElement(4,"Shut Down...")
  41.  Call ReadIt(4,sV4)
  42.  
  43.  Call SetUIElement(5,"Find") 
  44.  Call ReadIt(5,sV5)
  45.  
  46.  Call SetUIElement(6,"Log Off <username>...")
  47.  'Call ReadIt(6,sV6)
  48.  i=RegReadValue(sV6) 'Binary
  49.  if IsEmpty(i)=true or i="00000000" then
  50.     Call SetUIElementEx(6,true)
  51.  end if
  52.  
  53. END SUB
  54.  
  55. 'Called when the Plugin should apply the changes
  56. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  57.  Call WriteIt(1,sV1)
  58.  Call WriteIt(2,sV2)
  59.  Call WriteIt(3,sV3)
  60.  Call WriteIt(4,sV4)
  61.  Call WriteIt(5,sV5)
  62.  
  63.  if GetUIElementEx(6)=true then
  64.     If RegPathExists(sV6) then Call RegDeleteValue(sV6)
  65.  else
  66.     Call RegWriteValue(sV6,"01000000",3)
  67.  end if
  68.  
  69.  
  70.  Call IndicateSettingChange()
  71. END SUB
  72.  
  73. Sub ReadIt(ITM,PATH1)
  74.  if RegValueExists(PATH1)=false then 'setting available?
  75.     'no setting -> item visible
  76.     Call SetUIElementEx(ITM,true)
  77.  else
  78.     i=RegReadValue(PATH1)
  79.     if i=0 then 
  80.        Call SetUIElementEx(ITM,true)
  81.     end if
  82.  end if
  83.  
  84. End Sub
  85.  
  86. Sub WriteIt(ITM,PATH1)
  87.  b=GetUIElementEx(ITM)
  88.  if b=true then
  89.  
  90.     s=RegReadValue(PATH1)
  91.     if IsEmpty(s)=false then
  92.        Call RegDeleteValue(PATH1)
  93.     end if
  94.  
  95.  else
  96.     Call RegWriteValue(PATH1,1,2)
  97.  end if
  98. End Sub
  99.  
  100. SUB Plugin_Terminate
  101. END SUB
  102.